home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / musik / MIDIFP21 / SOURCES / MIDI_PRT / PARAMS / PARAMS.C < prev    next >
Encoding:
C/C++ Source or Header  |  1996-08-24  |  34.4 KB  |  1,103 lines
  1. /**************************************************************
  2. *
  3. *                PARAMS.C
  4. *
  5. **************************************************************/
  6.  
  7. #include <acs.h>
  8. #include <acsplus.h>
  9. #include <stdlib.h>
  10. #include <string.h>
  11. #include <tos.h>
  12. #include <messages.pif>
  13. #include <acs_plus.pif>
  14. #include <graphics.pif>
  15. #include <diskfile.pif>
  16.  
  17. static int cdecl note(PARMBLK *parmblk) ;
  18.  
  19. #include "params.pif"
  20. #include "params.h"
  21. #include "params.ah"
  22.  
  23. #define TITLE_FIELD_LENGTH 40 /** length of title field in params object **/
  24.  
  25. static char default_path[pathname_length] ; /** for MIDI_PRT.PAR **/
  26.  
  27. /*** paths where to search for files, for all instances together ***/
  28. static char savepath[pathname_length] ;
  29. static char loadpath[pathname_length] ;
  30. static char savepathname[pathname_length] ;
  31. static char loadpathname[pathname_length] ;
  32.  
  33. /*** array for addressing menu entries in program loops, ***/
  34. /*** FONT_i are not defined in sequence by ACS !          ***/
  35.  
  36. static char FONT_INDEX[MAX_FONTS] = 
  37. { 
  38.     FONT_0  , FONT_1  , FONT_2  , FONT_3  , FONT_4  , FONT_5  , FONT_6  , FONT_7  , FONT_8  , FONT_9  , 
  39.     FONT_10 , FONT_11 , FONT_12 , FONT_13 , FONT_14 , FONT_15 , FONT_16 , FONT_17 , FONT_18 , FONT_19 , 
  40.     FONT_20 , FONT_21 , FONT_22 , FONT_23 ,    FONT_24 , FONT_25 , FONT_26 , FONT_27 , FONT_28 , FONT_29 , 
  41.     FONT_30 , FONT_31 , FONT_32 , FONT_33 ,    FONT_34 , FONT_35 , FONT_36 , FONT_37 , FONT_38 , FONT_39 , 
  42.     FONT_40 , FONT_41 , FONT_42 , FONT_43 ,    FONT_44 , FONT_45 , FONT_46 , FONT_47 , FONT_48 , FONT_49 , 
  43.     FONT_50 , FONT_51 , FONT_52 , FONT_53 ,    FONT_54 , FONT_55 , FONT_56 , FONT_57 , FONT_58 , FONT_59 , 
  44.     FONT_60 , FONT_61 , FONT_62 , FONT_63 ,    FONT_64 , FONT_65 , FONT_66 , FONT_67 , FONT_68 , FONT_69 , 
  45.     FONT_70 , FONT_71 , FONT_72 , FONT_73 ,    FONT_74 , FONT_75 , FONT_76 , FONT_77 , FONT_78 , FONT_79 , 
  46.     FONT_80 , FONT_81 , FONT_82 , FONT_83 ,    FONT_84 , FONT_85 , FONT_86 , FONT_87 , FONT_88 , FONT_89 , 
  47.     FONT_90 , FONT_91 , FONT_92 , FONT_93 ,    FONT_94 , FONT_95 , FONT_96 , FONT_97 , FONT_98 , FONT_99 , 
  48.     FONT_100, FONT_101, FONT_102, FONT_103,    FONT_104, FONT_105, FONT_106, FONT_107, FONT_108, FONT_109, 
  49.     FONT_110, FONT_111, FONT_112, FONT_113,    FONT_114, FONT_115, FONT_116, FONT_117, FONT_118, FONT_119, 
  50.     FONT_120, FONT_121, FONT_122, FONT_123,    FONT_124, FONT_125, FONT_126, FONT_127
  51. } ;
  52.  
  53.  
  54.  
  55. typedef struct
  56. {
  57.     /*** headline ***/
  58.     char title[80] ;
  59.  
  60.     /*** text parameters ***/
  61.     int font_id, effect ;
  62.  
  63.     /*** borders ***/
  64.     char left_border, right_border, lower_border, upper_border ;
  65.  
  66.     /*** y-distances ***/
  67.     char system_distance, track_distance, note_distance ;
  68.  
  69.     /*** bar parameters ***/ 
  70.     char bars_per_system, bar_length, sub_bars ;
  71.  
  72.     /*** vertical parameters ***/
  73.     int back_style[12], back_color[12], hor_lines, mode ;
  74.  
  75.     /*** note parameters ***/
  76.     int style[12], color[12], type ;
  77.     char height, dynamic ;
  78. } 
  79. PARAMS_FILE ;
  80.  
  81.  
  82. /************* OBJECT DATA PROTOTYPE BEGIN ***********************/
  83.  
  84. /*** show note style or show background style ? ***/
  85.  
  86. typedef enum {SH_NOTE, SH_BACKGROUND} SHOW ;
  87.  
  88.  
  89. typedef struct 
  90. {
  91.     char path[pathname_length] ;
  92.     SHOW show ;
  93.     int style[12], color[12], index, front ;
  94.     int back_style[12], back_color[12], back_index ;
  95.     int handle ;
  96.     int effect ;
  97.     int font_id ;
  98.     FONT_INFO *font_info ;     /* info about available GDOS fonts */
  99.     int number_fonts ;         /* number of elements in font_info[] */
  100.     Awindow *font_wi ;         /* pointer to font window */
  101.     Awindow *params_wi ;       /* pointer to the parameters window */
  102. } 
  103. PARAMS ;
  104.  
  105. /************* OBJECT DATA PROTOTYPE END *************************/
  106.  
  107.  
  108. /*****************/
  109. static void keys /*
  110. ******************/
  111. (
  112.     Awindow *wi,    /* input: parameters window */
  113.     int kstate,     /* input: see ACS manual */
  114.     int key            /* input: ASCII code and scan code */
  115. )
  116. {
  117.     if (set_timer(wi) == -1) Awi_sendall(REDRAW, wi) ;
  118.  
  119.     /*** forward event to ACS for further treatment (e.g. by the desktop) ***/
  120.     Awi_keys(wi, kstate, key) ;
  121. }
  122.  
  123. /**********************************************/
  124. static int cdecl background(PARMBLK *parmblk) /*
  125. ***********************************************/
  126. {
  127. PARAMS *p = (PARAMS *)parmblk->pb_parm ;
  128. int points[4], clipping_points[4] ;
  129.  
  130.     /*** calculate border points for clipping rectangle, clipping = on ***/
  131.     clipping_points[0] = parmblk->pb_xc ;    
  132.     clipping_points[1] = parmblk->pb_yc ;    
  133.     clipping_points[2] = clipping_points[0] + parmblk->pb_wc - 1 ;    
  134.     clipping_points[3] = clipping_points[1] + parmblk->pb_hc - 1 ;    
  135.     vs_clip(p->handle, TRUE, clipping_points) ;
  136.  
  137.     /*** fit points to userdef object size and location ***/
  138.     points[0] = parmblk->pb_x ;
  139.     points[1] = parmblk->pb_y ;    
  140.     points[2] = points[0] + parmblk->pb_w - 1 ;
  141.     points[3] = points[1] + parmblk->pb_h - 1 ;    
  142.  
  143.     /*** set drawing styles ***/
  144.     if (p->back_style[p->back_index] == IP_HOLLOW) 
  145.         vsf_interior(p->handle, FIS_HOLLOW) ;
  146.     else vsf_interior(p->handle, FIS_PATTERN) ;
  147.     vsf_style(p->handle, p->back_style[p->back_index]) ;
  148.     vsf_color(p->handle, p->back_color[p->back_index]) ;
  149.     vsl_color(p->handle, p->back_color[p->back_index]) ;
  150.  
  151.     /*** draw background field ***/
  152.     vr_recfl(p->handle, points) ;
  153.     if (p->back_style[p->back_index] == IP_HOLLOW) 
  154.     {
  155.         vsl_width(p->handle, 3) ;
  156.         points[1] = points[3] = (points[1] + points[3]) >> 1 ;
  157.         v_pline(p->handle, 2, points) ;
  158.         vsl_width(p->handle, 1) ;
  159.     }
  160.  
  161.     /*** workaround ???? ***/
  162.     vsf_color(p->handle, BLACK); vsl_color(p->handle, BLACK) ;
  163.  
  164.     /*** clipping = off ***/
  165.     vs_clip(p->handle, FALSE, clipping_points) ;
  166.     return(parmblk->pb_currstate) ;          
  167. }
  168.  
  169. /**********************************************/
  170. static int cdecl color_draw(PARMBLK *parmblk) /*
  171. ***********************************************/
  172. {
  173. PARAMS *p = (PARAMS *)parmblk->pb_parm ;
  174. int points[4], clipping_points[4], i ;
  175. int number_colors = ncolors ;
  176. float dx ;
  177.  
  178.     if (number_colors > 16) number_colors = 16 ;
  179.     dx = ((float)parmblk->pb_w) / number_colors ;
  180.  
  181.     /*** calculate border points for clipping rectangle, clipping = on ***/
  182.     clipping_points[0] = parmblk->pb_xc ;    
  183.     clipping_points[1] = parmblk->pb_yc ;    
  184.     clipping_points[2] = clipping_points[0] + parmblk->pb_wc - 1 ;    
  185.     clipping_points[3] = clipping_points[1] + parmblk->pb_hc - 1 ;    
  186.     vs_clip(p->handle, TRUE, clipping_points) ;
  187.  
  188.     /*** fit points to userdef object size and location ***/
  189.     points[1] = parmblk->pb_y ;    
  190.     points[3] = parmblk->pb_y + parmblk->pb_h - 1 ;    
  191.  
  192.     /*** set drawing styles ***/
  193.     vsf_interior(p->handle, FIS_SOLID) ;
  194.  
  195.     /*** draw color fields ***/
  196.     for ( i = 0 ; i < number_colors ; i++ )
  197.     {
  198.         points[0] = parmblk->pb_x + (dx * i) ;
  199.         points[2] = points[0] + dx ;
  200.         vsf_color(p->handle, i) ;
  201.         v_bar(p->handle, points) ;
  202.     }
  203.     /*** workaround ???? ***/
  204.     vsf_color(p->handle, BLACK); vsl_color(p->handle, BLACK) ;
  205.  
  206.     /*** clipping = off ***/
  207.     vs_clip(p->handle, FALSE, clipping_points) ;
  208.     return(parmblk->pb_currstate) ;          
  209. }
  210.  
  211. /****************************************/
  212. static int cdecl note(PARMBLK *parmblk) /*
  213. *****************************************/
  214. {
  215. PARAMS *p = (PARAMS *)parmblk->pb_parm ;
  216. int points[4], clipping_points[4] ;
  217. int type = 0 ;
  218.  
  219.     /*** calculate border points for clipping rectangle, clipping = on ***/
  220.     clipping_points[0] = parmblk->pb_xc ;    
  221.     clipping_points[1] = parmblk->pb_yc ;    
  222.     clipping_points[2] = clipping_points[0] + parmblk->pb_wc - 1 ;    
  223.     clipping_points[3] = clipping_points[1] + parmblk->pb_hc - 1 ;    
  224.     vs_clip(p->handle, TRUE, clipping_points) ;
  225.  
  226.     /*** fit points to userdef object size and location ***/
  227.     points[0] = parmblk->pb_x ;    
  228.     points[1] = parmblk->pb_y + (parmblk->pb_h >> 2) ;    
  229.     points[2] = parmblk->pb_x + parmblk->pb_w - 1 ;    
  230.     points[3] = parmblk->pb_y + parmblk->pb_h - 1 - (parmblk->pb_h >> 2) ;    
  231.  
  232.     /*** set drawing styles ***/
  233.     vsf_perimeter(p->handle, 1) ;  /* with perimeter */
  234.     vsl_type(p->handle, SOLID) ;
  235.  
  236.     /*** draw corresponding note ***/
  237.     switch(parmblk->pb_obj)
  238.     {
  239.         case HEAD_0: break ;
  240.         case HEAD_1: type = HEAD_LINE ; break ;
  241.         case HEAD_2: type = HEAD_TRI ; break ;
  242.         case BODY_0: break ;
  243.         case BODY_1: type = BODY_RECT ; break ;
  244.         case BODY_2: type = BODY_ELLIP ; break ;
  245.         case TAIL_0: break ;
  246.         case TAIL_1: type = TAIL_LINE ; break ;
  247.         case TAIL_2: type = TAIL_TRI ; break ;
  248.     }
  249.     if (p->front) type |= BODY_FRONT ;
  250.     draw_note(p->handle, points, type, p->style[p->index], p->color[p->index]) ;
  251.  
  252.     /*** workaround ???? ***/
  253.     vsf_color(p->handle, BLACK); vsl_color(p->handle, BLACK) ;
  254.  
  255.     /*** clipping = off ***/
  256.     vs_clip(p->handle, FALSE, clipping_points) ;
  257.     return(parmblk->pb_currstate) ;          
  258. }
  259.  
  260.  
  261. static int /* return: 0 if success, -1 if file not found or wrong format */
  262. /************/
  263. load_params /*
  264. *************/
  265. (
  266.     Awindow *wi,    /* input: parameters window */
  267.     char *path        /* input: path (including file name) */
  268. )
  269. {
  270. PARAMS *p = wi->user ;
  271. Awindow *font_wi = p->font_wi ;
  272. long filesize ;
  273. PARAMS_FILE *pf ;
  274. char *text ;
  275. int i ;
  276.  
  277.     /*** load the parameter file into RAM ***/
  278.     if ( load_file(path, &filesize, (void *)&pf) == file_loaded )
  279.     { 
  280.         if ( filesize == sizeof *pf ) 
  281.         {
  282.             /*** copy file data into object data ***/
  283.             text = wi->work[TITLE].ob_spec.tedinfo->te_ptext ; 
  284.             *text = '\0' ;
  285.             strncat(text, pf->title, TITLE_FIELD_LENGTH) ;
  286.             if (pf->bars_per_system > 99) pf->bars_per_system = 99 ; 
  287.             itoa(pf->bars_per_system, wi->work[BARS_PER_SYSTEM].ob_spec.tedinfo->te_ptext, 10) ; 
  288.             if (pf->bar_length > 99) pf->bar_length = 99 ; 
  289.             itoa(pf->bar_length, wi->work[BAR_LENGTH].ob_spec.tedinfo->te_ptext, 10) ; 
  290.             if (pf->sub_bars > 9) pf->sub_bars = 9 ; 
  291.             itoa(pf->sub_bars, wi->work[SUB_BARS].ob_spec.tedinfo->te_ptext, 10) ; 
  292.             if (pf->left_border > 99) pf->left_border = 99 ; 
  293.             itoa(pf->left_border, wi->work[LEFT_BORDER].ob_spec.tedinfo->te_ptext, 10) ; 
  294.             if (pf->right_border > 99) pf->right_border = 99 ; 
  295.             itoa(pf->right_border, wi->work[RIGHT_BORDER].ob_spec.tedinfo->te_ptext, 10) ; 
  296.             if (pf->upper_border > 99) pf->upper_border = 99 ; 
  297.             itoa(pf->upper_border, wi->work[UPPER_BORDER].ob_spec.tedinfo->te_ptext, 10) ; 
  298.             if (pf->lower_border > 99) pf->lower_border = 99 ; 
  299.             itoa(pf->lower_border, wi->work[LOWER_BORDER].ob_spec.tedinfo->te_ptext, 10) ; 
  300.             if (pf->system_distance > 99) pf->system_distance = 99 ; 
  301.             itoa(pf->system_distance, wi->work[SYSTEM_DISTANCE].ob_spec.tedinfo->te_ptext, 10) ; 
  302.             if (pf->track_distance > 99) pf->track_distance = 99 ; 
  303.             itoa(pf->track_distance, wi->work[TRACK_DISTANCE].ob_spec.tedinfo->te_ptext, 10) ; 
  304.             itoa(pf->note_distance, wi->work[NOTE_DISTANCE].ob_spec.tedinfo->te_ptext, 10) ; 
  305.             if (pf->hor_lines > 9) pf->hor_lines = 9 ;
  306.             itoa(pf->hor_lines, wi->work[HOR_LINES].ob_spec.tedinfo->te_ptext, 10) ;
  307.             for (i = 0 ; i < 12 ; i++)
  308.             {
  309.                 p->color[i]            = pf->color[i] ;
  310.                 p->style[i]            = pf->style[i] ; 
  311.                 p->back_color[i]    = pf->back_color[i] ;
  312.                 p->back_style[i]    = pf->back_style[i] ;            
  313.             }
  314.             /*** deselect radio buttons ***/
  315.             wi->work[RADIO_TAIL_0].ob_state &= ~SELECTED ;
  316.             wi->work[RADIO_TAIL_1].ob_state &= ~SELECTED ;
  317.             wi->work[RADIO_TAIL_2].ob_state &= ~SELECTED ;
  318.             wi->work[RADIO_HEAD_0].ob_state &= ~SELECTED ;
  319.             wi->work[RADIO_HEAD_1].ob_state &= ~SELECTED ;
  320.             wi->work[RADIO_HEAD_2].ob_state &= ~SELECTED ;
  321.             wi->work[RADIO_BODY_0].ob_state &= ~SELECTED ;
  322.             wi->work[RADIO_BODY_1].ob_state &= ~SELECTED ;
  323.             wi->work[RADIO_BODY_2].ob_state &= ~SELECTED ;
  324.  
  325.             /*** determine radio button for note body ***/
  326.             if ( pf->type & BODY_ELLIP ) wi->work[RADIO_BODY_2].ob_state |= SELECTED ;
  327.             else if ( pf->type & BODY_RECT ) wi->work[RADIO_BODY_1].ob_state |= SELECTED ;
  328.             else wi->work[RADIO_BODY_0].ob_state |= SELECTED ;
  329.             if ( pf->type & BODY_FRONT )
  330.             {
  331.                 wi->work[FRONT].ob_state |= SELECTED ;
  332.                 wi->work[BACK].ob_state &= ~SELECTED ;
  333.                 p->front = TRUE ;
  334.             }
  335.             else 
  336.             {
  337.                 wi->work[BACK].ob_state |= SELECTED ;
  338.                 wi->work[FRONT].ob_state &= ~SELECTED ;
  339.                 p->front = FALSE ;
  340.             }
  341.  
  342.             /*** determine radio button for note head ***/
  343.             if ( pf->type & HEAD_TRI ) wi->work[RADIO_HEAD_2].ob_state |= SELECTED ;
  344.             else if ( pf->type & HEAD_LINE ) wi->work[RADIO_HEAD_1].ob_state |= SELECTED ;
  345.             else wi->work[RADIO_HEAD_0].ob_state |= SELECTED ;
  346.  
  347.             /*** determine radio button for note tail ***/
  348.             if ( pf->type & TAIL_TRI ) wi->work[RADIO_TAIL_2].ob_state |= SELECTED ;
  349.             else if ( pf->type & TAIL_LINE ) wi->work[RADIO_TAIL_1].ob_state |= SELECTED ;
  350.             else wi->work[RADIO_TAIL_0].ob_state |= SELECTED ;
  351.  
  352.             /*** height and dynamic ***/
  353.             if (pf->height > 9) pf->height = 9 ; 
  354.             itoa(pf->height, wi->work[AVERAGE_HEIGHT].ob_spec.tedinfo->te_ptext, 10) ; 
  355.             if (pf->dynamic > 9) pf->dynamic = 9 ; 
  356.             itoa(pf->dynamic, wi->work[DYNAMIC].ob_spec.tedinfo->te_ptext, 10) ; 
  357.  
  358.             /*** fonts and headline style ***/
  359.             for ( i = 0 ; i < p->number_fonts ; i++ )
  360.             {
  361.                 if ( pf->font_id == (p->font_info + i)->font_id )
  362.                 {
  363.                     p->font_id = pf->font_id ;
  364.                     if (font_wi != NULL)
  365.                         font_wi->work[FONT_INDEX[i]].ob_state |= SELECTED ;
  366.                 }
  367.                 else
  368.                     if (font_wi != NULL)
  369.                         font_wi->work[FONT_INDEX[i]].ob_state &= ~SELECTED ;
  370.             }
  371.             p->effect = pf->effect ;
  372.             if (p->effect & BOLD)       wi->menu[_BOLD]      .ob_state |= CHECKED ;
  373.             else wi->menu[_BOLD]      .ob_state &= ~CHECKED ;
  374.             if (p->effect & LIGHT)      wi->menu[_LIGHT]     .ob_state |= CHECKED ;
  375.             else wi->menu[_LIGHT]     .ob_state &= ~CHECKED ;
  376.             if (p->effect & ITALIC)     wi->menu[_ITALIC]    .ob_state |= CHECKED ;
  377.             else wi->menu[_ITALIC]    .ob_state &= ~CHECKED ;
  378.             if (p->effect & UNDERLINED) wi->menu[_UNDERLINED].ob_state |= CHECKED ;
  379.             else wi->menu[_UNDERLINED].ob_state &= ~CHECKED ;
  380.             if (p->effect & OUTLINED)   wi->menu[_OUTLINED]  .ob_state |= CHECKED ;
  381.             else wi->menu[_OUTLINED]  .ob_state &= ~CHECKED ;
  382.  
  383.             /*** notation mode ***/
  384.             wi->menu[BEYREUTHER].ob_state &= ~CHECKED ;
  385.             wi->menu[RIEDER].ob_state &= ~CHECKED ;
  386.             wi->menu[MIX].ob_state &= ~CHECKED ;
  387.             switch (pf->mode) 
  388.             {
  389.                 case Beyreuther: wi->menu[BEYREUTHER].ob_state |= CHECKED ; break ;
  390.                 case Mix:        wi->menu[MIX].ob_state |= CHECKED ; break ;
  391.                 default:         wi->menu[RIEDER].ob_state |= CHECKED ;
  392.             }
  393.         }
  394.         else
  395.         {
  396.  
  397.             /*** file verion is not 2.x ***/ 
  398.             alert_str(WRONG_FORMAT, path) ; 
  399.  
  400.             /*** free RAM file ***/
  401.             unload_file(pf) ;
  402.             return -1 ; /* no success */
  403.         }
  404.         /*** free RAM file ***/
  405.         unload_file(pf) ;
  406.  
  407.         /*** refresh objects ***/
  408.         Awi_obchange(wi, 0, -1) ;
  409.         if (p->font_wi != NULL) Awi_obchange(p->font_wi, 0, -1) ;
  410.  
  411.         /*** actualize protocol window ***/
  412.         Awi_sendall(REDRAW, wi) ;
  413.         return 0 ; /* success */
  414.     }
  415.     else return -1 ; /* no success */
  416. }
  417.  
  418. /************************/
  419. static void save_params /*
  420. *************************/
  421. (
  422.     Awindow *wi,    /* input: parameters window */
  423.     char *path        /* input: path (including file name) */ 
  424. )
  425. {
  426. PARAMS *p = wi->user ;
  427. PARAMS_FILE pf ;
  428. int handle, i ;
  429.  
  430.     /*** try to open path ***/
  431.     handle = Fopen(path, FO_WRITE) ;
  432.     if ( handle < 0 )
  433.     {
  434.         /*** try to create ?.PAR ***/
  435.         handle = Fcreate(path, 0 /* ordinary file */) ;
  436.         if ( handle < 0 )
  437.         {
  438.             alert_str(NOT_CREATED, path) ; 
  439.             return ;
  440.         }
  441.     }
  442.     /*** prepare structure for saving parameters ***/
  443.     strcpy(pf.title, wi->work[TITLE].ob_spec.tedinfo->te_ptext) ;
  444.     pf.bars_per_system = atoi(wi->work[BARS_PER_SYSTEM].ob_spec.tedinfo->te_ptext) ; 
  445.     pf.bar_length = atoi(wi->work[BAR_LENGTH].ob_spec.tedinfo->te_ptext) ; 
  446.     pf.sub_bars = atoi(wi->work[SUB_BARS].ob_spec.tedinfo->te_ptext) ; 
  447.     pf.left_border = atoi(wi->work[LEFT_BORDER].ob_spec.tedinfo->te_ptext) ; 
  448.     pf.right_border = atoi(wi->work[RIGHT_BORDER].ob_spec.tedinfo->te_ptext) ; 
  449.     pf.upper_border = atoi(wi->work[UPPER_BORDER].ob_spec.tedinfo->te_ptext) ; 
  450.     pf.lower_border = atoi(wi->work[LOWER_BORDER].ob_spec.tedinfo->te_ptext) ; 
  451.     pf.system_distance = atoi(wi->work[SYSTEM_DISTANCE].ob_spec.tedinfo->te_ptext) ; 
  452.     pf.track_distance = atoi(wi->work[TRACK_DISTANCE].ob_spec.tedinfo->te_ptext) ; 
  453.     pf.note_distance = atoi(wi->work[NOTE_DISTANCE].ob_spec.tedinfo->te_ptext) ; 
  454.     pf.hor_lines = atoi(wi->work[HOR_LINES].ob_spec.tedinfo->te_ptext) ;
  455.     for (i = 0 ; i < 12 ; i++)
  456.     {
  457.         pf.color[i] = p->color[i] ;  
  458.         pf.style[i] = p->style[i] ;
  459.         pf.back_color[i] = p->back_color[i] ;  
  460.         pf.back_style[i] = p->back_style[i] ; 
  461.     }
  462.     pf.type = 0 ;
  463.     if (wi->work[RADIO_HEAD_1].ob_state & SELECTED) pf.type |= HEAD_LINE ;
  464.     if (wi->work[RADIO_HEAD_2].ob_state & SELECTED) pf.type |= HEAD_TRI ;
  465.     if (wi->work[RADIO_BODY_1].ob_state & SELECTED) pf.type |= BODY_RECT ;
  466.     if (wi->work[RADIO_BODY_2].ob_state & SELECTED) pf.type |= BODY_ELLIP ;
  467.     if (wi->work[FRONT].ob_state & SELECTED)        pf.type |= BODY_FRONT ;
  468.     if (wi->work[RADIO_TAIL_1].ob_state & SELECTED) pf.type |= TAIL_LINE ;
  469.     if (wi->work[RADIO_TAIL_2].ob_state & SELECTED) pf.type |= TAIL_TRI ;
  470.     pf.height = atoi(wi->work[AVERAGE_HEIGHT].ob_spec.tedinfo->te_ptext) ;
  471.     pf.dynamic = atoi(wi->work[DYNAMIC].ob_spec.tedinfo->te_ptext) ; 
  472.     pf.font_id = p->font_id ;
  473.     pf.effect = p->effect ;
  474.     if (wi->menu[BEYREUTHER].ob_state & CHECKED) pf.mode = Beyreuther ;
  475.     else if (wi->menu[MIX].ob_state & CHECKED) pf.mode = Mix ;
  476.     else pf.mode = Rieder ;
  477.  
  478.     /*** save structure ***/
  479.     if ( Fwrite(handle, sizeof pf, &pf) < 0 )
  480.         alert_str(WRITE_ERROR, path) ; 
  481.  
  482.     /*** close file ***/
  483.     Fclose(handle) ;
  484. }
  485.  
  486. /***********************/
  487. static void bold(void) /*
  488. ************************/
  489. {
  490.     /*** invert bits ***/ 
  491.     ev_object[_BOLD].ob_state ^= CHECKED ;
  492.     ((PARAMS *)(ev_window->user))->effect ^= BOLD ; 
  493.  
  494.     /*** actualize protocol window ***/
  495.     Awi_sendall(REDRAW, ev_window) ;
  496. }
  497.  
  498. /************************/
  499. static void light(void) /*
  500. *************************/
  501. {
  502.     ev_object[_LIGHT].ob_state ^= CHECKED ;
  503.     ((PARAMS *)(ev_window->user))->effect ^= LIGHT ; 
  504.     Awi_sendall(REDRAW, ev_window) ;
  505. }
  506.  
  507. /*************************/
  508. static void italic(void) /*
  509. **************************/
  510. {
  511.     ev_object[_ITALIC].ob_state ^= CHECKED ;
  512.     ((PARAMS *)(ev_window->user))->effect ^= ITALIC ; 
  513.     Awi_sendall(REDRAW, ev_window) ;
  514. }
  515.  
  516. /*****************************/
  517. static void underlined(void) /*
  518. ******************************/
  519. {
  520.     ev_object[_UNDERLINED].ob_state ^= CHECKED ;
  521.     ((PARAMS *)(ev_window->user))->effect ^= UNDERLINED ; 
  522.     Awi_sendall(REDRAW, ev_window) ;
  523. }
  524.  
  525. /***************************/
  526. static void outlined(void) /*
  527. ****************************/
  528. {
  529.     ev_object[_OUTLINED].ob_state ^= CHECKED ;
  530.     ((PARAMS *)(ev_window->user))->effect ^= HOLLOW ; 
  531.     Awi_sendall(REDRAW, ev_window) ;
  532. }
  533.  
  534.  
  535. /********************/
  536. static void uncheck /*
  537. *********************/
  538. (
  539.     OBJECT *obj    /* input: parent object */
  540. )
  541. {
  542.     obj[RIEDER].ob_state &= ~CHECKED ;
  543.     obj[MIX].ob_state &= ~CHECKED ;
  544.     obj[BEYREUTHER].ob_state &= ~CHECKED ;
  545. }
  546.  
  547. /*************************/
  548. static void rieder(void) /*
  549. **************************/
  550. {
  551.     uncheck(ev_object) ;
  552.     ev_object[RIEDER].ob_state |= CHECKED ;
  553.  
  554.     /*** actualize protocol window ***/
  555.     Awi_sendall(REDRAW, ev_window) ;
  556. }
  557.  
  558. /*****************************/
  559. static void beyreuther(void) /*
  560. ******************************/
  561. {
  562.     uncheck(ev_object) ;
  563.     ev_object[BEYREUTHER].ob_state |= CHECKED ;
  564.     Awi_sendall(REDRAW, ev_window) ;
  565. }
  566.  
  567. /**********************/
  568. static void mix(void) /*
  569. ***********************/
  570. {
  571.     uncheck(ev_object) ;
  572.     ev_object[MIX].ob_state |= CHECKED ;
  573.     Awi_sendall(REDRAW, ev_window) ;
  574. }
  575.  
  576. /*****************************/
  577. static void show_fonts(void) /*
  578. ******************************/
  579. { 
  580. PARAMS *p = ev_window->user ;
  581. Awindow *font_wi = p->font_wi ;
  582. int i ;
  583. char *text ;
  584.  
  585.     if (font_wi == NULL)
  586.     {
  587.         /*** window must be created ***/
  588.         p->font_wi = font_wi = Awi_create(&FONT_WINDOW) ;
  589.         if (font_wi == NULL) return ;
  590.         font_wi->user = p ;
  591.  
  592.         /*** copy filename ***/
  593.         Ast_delete(font_wi->info) ;
  594.         font_wi->info = Ast_create(ev_window->info) ;
  595.  
  596.         /*** adapt work object to number and names of fonts ***/
  597.         for ( i = 0 ; i < p->number_fonts ; i++ )
  598.         {
  599.             text = font_wi->work[FONT_INDEX[i]].ob_spec.tedinfo->te_ptext ;
  600.             strcpy(text, " ") ;
  601.             strncat(text, (p->font_info + i)->font_name, MAXLEN) ;
  602.  
  603.             /*** select object according to font ID ***/
  604.             if ( p->font_id == (p->font_info + i)->font_id )
  605.                 font_wi->work[FONT_INDEX[i]].ob_state |= SELECTED ;
  606.             else font_wi->work[FONT_INDEX[i]].ob_state &= ~SELECTED ;
  607.         }
  608.         font_wi->work[FONT].ob_height = font_wi->work[FONT_0].ob_height * p->number_fonts ;
  609.  
  610.         /*** small window needs less elements ***/
  611.         if (p->number_fonts <= 10) font_wi->wi_kind &= ~(VSLIDE|UPARROW|DNARROW|SIZER|FULLER) ;
  612.     }
  613.     Awi_show(font_wi) ; 
  614. }
  615.  
  616. /***********************/
  617. static void font(void) /*
  618. ************************/
  619. { 
  620. int i ;
  621. PARAMS *p = ev_window->user ;
  622.     
  623.     for ( i = 0 ; i < p->number_fonts ; i++ )
  624.         if ( ev_window->work[FONT_INDEX[i]].ob_state & SELECTED )
  625.             p->font_id = (p->font_info + i)->font_id ;
  626.     Awi_sendall( REDRAW, p->params_wi ) ;    
  627. }
  628.  
  629.  
  630. static int /* return: TRUE if task was treated, FALSE else */
  631. /********/
  632. service /*
  633. *********/
  634. (
  635.     Awindow *wi,     /* input: parameters window */
  636.     int task,         /* input: message from ACS or other window */
  637.     void *not_used  /* input: not used here */
  638. )
  639. {
  640.     switch (task)
  641.     {    
  642.     case AS_TERM: Awi_sendall(TERMINATE, wi) ; break ; 
  643.     case AS_INFO: A_dialog(&PARAMS_INFO) ; break ;
  644.     default:      return FALSE ;
  645.     }
  646.     return TRUE ;
  647. }
  648.  
  649. /***********************/
  650. static void close_font /*
  651. ************************/
  652. (
  653.     Awindow *wi /* input: font window */
  654. )
  655. { ((PARAMS *)(wi->user))->font_wi = NULL ; }
  656.  
  657.  
  658. /************************/
  659. static void color(void) /*
  660. *************************/
  661. {
  662. PARAMS *p = ev_window->user ;
  663. int number_colors = ncolors, color ;
  664. Axywh offset ;
  665.  
  666.     Aob_offset(&offset, ev_object, COLOR) ;
  667.     if (number_colors > 16) number_colors = 16 ;
  668.  
  669.     /*** update color ***/
  670.     color = (ev_mmox - offset.x - ev_window->wi_work.x) * number_colors / offset.w ;
  671.     if (p->show == SH_NOTE)
  672.     {
  673.         /*** refresh notes ***/
  674.         p->color[p->index] = color ; 
  675.         Awi_obchange(ev_window, TAIL_0, -1) ;
  676.         Awi_obchange(ev_window, TAIL_1, -1) ;
  677.         Awi_obchange(ev_window, TAIL_2, -1) ;
  678.         Awi_obchange(ev_window, BODY_0, -1) ;
  679.         Awi_obchange(ev_window, BODY_1, -1) ;
  680.         Awi_obchange(ev_window, BODY_2, -1) ;
  681.         Awi_obchange(ev_window, HEAD_0, -1) ;
  682.         Awi_obchange(ev_window, HEAD_1, -1) ;
  683.         Awi_obchange(ev_window, HEAD_2, -1) ;
  684.     }
  685.     else
  686.     {
  687.         /*** refresh background user def. ***/
  688.         p->back_color[p->back_index] = color ; 
  689.         Awi_obchange(ev_window, BACKGROUND, -1) ;
  690.     }
  691.     if (set_timer(ev_window) == -1) Awi_sendall(REDRAW, ev_window) ;
  692. }
  693.  
  694. /**************************/
  695. static void pattern(void) /*
  696. ***************************/
  697. {
  698. PARAMS *p = ev_window->user ;
  699. int style ;
  700.  
  701.     /*** update drawing style ***/
  702.     switch (ev_obnr)
  703.     {
  704.     case PATTERN_1: style = 0 ; break ; 
  705.     case PATTERN_2: style = 1 ; break ;
  706.     case PATTERN_3: style = 2 ; break ; 
  707.     case PATTERN_4: style = 3 ; break ;
  708.     case PATTERN_5: style = 4 ; break ;
  709.     case PATTERN_6: style = 5 ; break ;
  710.     case PATTERN_7: style = 6 ; break ;
  711.     case PATTERN_8: style = 7 ; break ;
  712.     case PATTERN_9: style = 8 ; break ;
  713.     }
  714.     if (p->show == SH_NOTE)
  715.     {
  716.         /*** refresh notes ***/
  717.         p->style[p->index] = style ;
  718.         Awi_obchange(ev_window, TAIL_0, -1) ;
  719.         Awi_obchange(ev_window, TAIL_1, -1) ;
  720.         Awi_obchange(ev_window, TAIL_2, -1) ;
  721.         Awi_obchange(ev_window, BODY_0, -1) ;
  722.         Awi_obchange(ev_window, BODY_1, -1) ;
  723.         Awi_obchange(ev_window, BODY_2, -1) ;
  724.         Awi_obchange(ev_window, HEAD_0, -1) ;
  725.         Awi_obchange(ev_window, HEAD_1, -1) ;
  726.         Awi_obchange(ev_window, HEAD_2, -1) ;
  727.     }
  728.     else
  729.     {
  730.         /*** refresh background user def. ***/
  731.         p->back_style[p->back_index] = style ;
  732.         Awi_obchange(ev_window, BACKGROUND, -1) ;
  733.     }
  734.     if (set_timer(ev_window) == -1) Awi_sendall(REDRAW, ev_window) ;
  735. }
  736.  
  737. /*******************************/
  738. static void radio_button(void) /*
  739.                                 *
  740. (except for the front & back    *
  741. buttons)                        *
  742. ********************************/
  743. { Awi_sendall(REDRAW, ev_window) ; }
  744.  
  745. /*********************************/
  746. static void radio_button_1(void) /*
  747.                                   *
  748. (for the front & back buttons)    *
  749. **********************************/
  750. {
  751. PARAMS *p = ev_window->user ;
  752.  
  753.     if (ev_obnr == FRONT) p->front = TRUE ;
  754.     else p->front = FALSE ;
  755.     Awi_obchange(ev_window, TAIL_0, -1) ;
  756.     Awi_obchange(ev_window, TAIL_1, -1) ;
  757.     Awi_obchange(ev_window, TAIL_2, -1) ;
  758.     Awi_obchange(ev_window, BODY_0, -1) ;
  759.     Awi_obchange(ev_window, BODY_1, -1) ;
  760.     Awi_obchange(ev_window, BODY_2, -1) ;
  761.     Awi_obchange(ev_window, HEAD_0, -1) ;
  762.     Awi_obchange(ev_window, HEAD_1, -1) ;
  763.     Awi_obchange(ev_window, HEAD_2, -1) ;
  764.     Awi_sendall(REDRAW, ev_window) ; 
  765. }
  766.  
  767. /*******************/
  768. static void save() /*
  769. ********************/
  770. { save_params(ev_window, ((PARAMS *)(ev_window->user))->path) ; }
  771.  
  772. /*******************/
  773. static void load() /*
  774. ********************/
  775. { load_params(ev_window, ((PARAMS *)(ev_window->user))->path) ; } 
  776.  
  777.  
  778. /**********************/
  779. static void save___() /*
  780. ***********************/
  781. { 
  782. char filename[filename_length] ; /* here: a dummy */
  783.  
  784.     switch ( get_file_name(savepathname, savepath, filename, "Save parameter file") ) 
  785.     {
  786.     case no_file_selected:  
  787.     case file_select_error: return ;
  788.     }
  789.     save_params(ev_window, savepathname) ; 
  790. }
  791.  
  792. /**********************/
  793. static void load___() /*
  794. ***********************/
  795. { 
  796. char filename[filename_length] ; /* here: a dummy */
  797.  
  798.     switch ( get_file_name(loadpathname, loadpath, filename, "Load parameter file") ) 
  799.     {
  800.         case no_file_selected:  
  801.         case file_select_error: return ;
  802.     }
  803.     load_params(ev_window, loadpathname) ; 
  804. } 
  805.  
  806.  
  807. static char *popup = "0|1|2|3|4|5|6|7|8|9|A|B" ;
  808.  
  809. /*************************/
  810. static void number(void) /*
  811. **************************/
  812. {
  813. PARAMS *p = ev_window->user ;
  814. int *index ;
  815. static char *new_selection, *old_selection ;
  816.  
  817.     if (p->show == SH_NOTE) 
  818.     {
  819.         index = &(p->index) ;
  820.         old_selection = popup + (p->index << 1) ;
  821.     }
  822.     else 
  823.     {
  824.         index = &(p->back_index) ;
  825.         old_selection = popup + (p->back_index << 1) ;
  826.     }
  827.     new_selection = Ame_strpopup(ev_window, popup, old_selection, 40, -1 , -1) ;
  828.     if (!new_selection) return ;
  829.     switch (*new_selection)
  830.     {
  831.     case '0': *index = 0 ; break ;
  832.     case '1': *index = 1 ; break ;
  833.     case '2': *index = 2 ; break ;
  834.     case '3': *index = 3 ; break ;
  835.     case '4': *index = 4 ; break ;
  836.     case '5': *index = 5 ; break ;
  837.     case '6': *index = 6 ; break ;
  838.     case '7': *index = 7 ; break ;
  839.     case '8': *index = 8 ; break ;
  840.     case '9': *index = 9 ; break ;
  841.     case 'A': *index = 10 ; break ;
  842.     case 'B': *index = 11 ; break ;
  843.     } ;
  844.     Awi_obchange(ev_window, NOTE_CARRIER_1, -1) ;
  845.     Awi_obchange(ev_window, NOTE_CARRIER_2, -1) ;
  846.     Awi_obchange(ev_window, NOTE_CARRIER_3, -1) ;
  847.     Awi_obchange(ev_window, BACKGROUND, -1) ;
  848.     ev_object[NUMBER].ob_spec.tedinfo->te_ptext[0] = popup[(*index)<<1] ;
  849.     Awi_obchange(ev_window, NUMBER, -1) ; 
  850. }
  851.  
  852. /****************************/
  853. static void show_note(void) /*
  854. *****************************/
  855. {
  856. PARAMS *p = ev_window->user ;
  857.     
  858.     p->show = SH_NOTE ;
  859.     ev_window->work[NOTE_CARRIER_1].ob_flags &= ~HIDETREE ;
  860.     ev_window->work[NOTE_CARRIER_2].ob_flags &= ~HIDETREE ;
  861.     ev_window->work[NOTE_CARRIER_3].ob_flags &= ~HIDETREE ;
  862.     ev_window->work[FRONT_BACK_CARRIER].ob_flags &= ~HIDETREE ;
  863.     Awi_obchange(ev_window, STYLE_CARRIER, -1) ;
  864. }
  865.  
  866. /**********************************/
  867. static void show_background(void) /*
  868. ***********************************/
  869. {
  870. PARAMS *p = ev_window->user ;
  871.  
  872.     p->show = SH_BACKGROUND ;
  873.     ev_window->work[NOTE_CARRIER_1].ob_flags |= HIDETREE ;
  874.     ev_window->work[NOTE_CARRIER_2].ob_flags |= HIDETREE ;
  875.     ev_window->work[NOTE_CARRIER_3].ob_flags |= HIDETREE ;
  876.     ev_window->work[FRONT_BACK_CARRIER].ob_flags |= HIDETREE ;
  877.     Awi_obchange(ev_window, STYLE_CARRIER, -1) ;
  878. }
  879.  
  880.  
  881. /******************************************************************
  882. *
  883. *             PUBLISHED INTERFACE
  884. *
  885. ******************************************************************/
  886.  
  887. /***********************/
  888. void PARAMS_destructor /*
  889. ************************/
  890. (
  891.     Awindow *params_wi /* input: parameters window to destroy */
  892. )
  893. {
  894. PARAMS *p ; 
  895.  
  896.     if (params_wi) 
  897.     {
  898.         p = params_wi->user ;
  899.         if (p) 
  900.         {
  901.             if (p->font_wi)
  902.             {
  903.                 memory_symptom = "PaDstr font_wi" ;
  904.                 Awi_delete( p->font_wi ) ;
  905.             }
  906.             memory_symptom = "PaDstr p" ;
  907.             My_free(p) ;     
  908.         }
  909.         memory_symptom = "PaDstr params_wi" ;
  910.         Awi_delete(params_wi) ; 
  911.     }
  912. }
  913.  
  914. Awindow *    /* return: NULL if no success, parameters window else */
  915. /*******************/
  916. PARAMS_constructor /*
  917. ********************/
  918. (
  919.     PARAMS_INIT *params_init /* input: init values */
  920. )
  921. {
  922. Awindow *params_wi ;
  923. PARAMS *p ;
  924. char *last_point ;
  925. int i ;
  926.  
  927.     /*** enter filename into icon text and info line ***/
  928.     PARAMS_WINDOW.iconblk = params_init->icon ;
  929.     PARAMS_WINDOW.iconblk->monoblk.ib_ptext = params_init->filename ;
  930.     PARAMS_WINDOW.info = params_init->filename ;
  931.  
  932.     /*** create the paramters window ***/
  933.     params_wi = Awi_create(&PARAMS_WINDOW) ;
  934.     if (!params_wi) return NULL ;
  935.  
  936.     /*** allocate params structure and initialize ***/
  937.     params_wi->user = p = My_alloc(sizeof *p) ;
  938.     if (!p) { PARAMS_destructor(params_wi) ; return NULL ; }
  939.     p->handle = params_init->handle ;
  940.     p->show = SH_NOTE ;
  941.     for (i = 0 ; i < 12 ; i++)
  942.     {
  943.         p->style[i] = IP_SOLID ; p->color[i] = BLACK ; 
  944.         p->back_style[i] = IP_1PATT ; p->back_color[i] = BLACK ; 
  945.     }
  946.     p->index = p->back_index = 0 ;
  947.     p->front = FALSE ;
  948.     p->effect = NORMAL ;
  949.     p->params_wi = params_wi ;
  950.     p->font_wi = NULL ;
  951.     p->font_info = params_init->font_info ;
  952.     p->number_fonts = params_init->number_fonts ;
  953.     strcpy(p->path, params_init->path) ;
  954.     strcpy(loadpath, params_init->path) ;
  955.     *( strrchr(p->path, '\\') + 1 ) = '\0' ;
  956.     *( strrchr(loadpath, '\\') + 1 ) = '\0' ;
  957.     strcat(p->path, params_init->filename) ;
  958.     strcat(loadpath, "*.PAR") ;
  959.     strcpy(savepath, loadpath) ;
  960.  
  961.     /*** extension ".PAR" for parameters filename ***/
  962.     last_point = strrchr(p->path, '.') ;   
  963.     if (last_point != NULL) *last_point = '\0' ;
  964.     strcat(p->path, ".PAR") ;
  965.  
  966.     /*** default path name (if no own parameters file exists for the MIDI file) ***/  
  967.     strcpy(default_path, apppath) ;
  968.     *( strrchr(default_path, '\\') + 1 ) = '\0' ;
  969.     strcat(default_path, "MIDI_PRT.PAR") ;
  970.  
  971.     /*** load parameters file ***/        
  972.     if ( load_params(params_wi, p->path) < 0 ) load_params(params_wi, default_path) ;
  973.  
  974.     /*** if headline still empty: enter filename into headline ***/
  975.     if ( *(params_wi->work[TITLE].ob_spec.tedinfo->te_ptext) == '\0' )
  976.         strncat(params_wi->work[TITLE].ob_spec.tedinfo->te_ptext, params_init->filename, TITLE_FIELD_LENGTH) ;
  977.  
  978.     /*** userdef drawing routines called by AES need access to PARAMS ***/ 
  979.     params_wi->work[COLOR].ob_spec.userblk->ub_parm =
  980.     params_wi->work[BACKGROUND].ob_spec.userblk->ub_parm =
  981.     params_wi->work[TAIL_0].ob_spec.userblk->ub_parm =
  982.     params_wi->work[TAIL_1].ob_spec.userblk->ub_parm =
  983.     params_wi->work[TAIL_2].ob_spec.userblk->ub_parm =
  984.     params_wi->work[HEAD_0].ob_spec.userblk->ub_parm =
  985.     params_wi->work[HEAD_1].ob_spec.userblk->ub_parm =
  986.     params_wi->work[HEAD_2].ob_spec.userblk->ub_parm =
  987.     params_wi->work[BODY_0].ob_spec.userblk->ub_parm =
  988.     params_wi->work[BODY_1].ob_spec.userblk->ub_parm =
  989.     params_wi->work[BODY_2].ob_spec.userblk->ub_parm = (long)p ;
  990.  
  991.     /*** return success message ***/
  992.     return params_wi ;
  993. }
  994.  
  995.  
  996. char *get_title(Awindow *wi) 
  997. { return wi->work[TITLE].ob_spec.tedinfo->te_ptext ; }
  998.  
  999. int get_bars_per_system(Awindow *wi)
  1000. { return atoi(wi->work[BARS_PER_SYSTEM].ob_spec.tedinfo->te_ptext) ; }
  1001.  
  1002. int get_system_length(Awindow *wi)
  1003. { return atoi(wi->work[BAR_LENGTH].ob_spec.tedinfo->te_ptext) *
  1004.          atoi(wi->work[BARS_PER_SYSTEM].ob_spec.tedinfo->te_ptext); }
  1005.  
  1006. char get_bar_divider(Awindow *wi)
  1007. { return atoi(wi->work[SUB_BARS].ob_spec.tedinfo->te_ptext) + 1 ; }
  1008.  
  1009. int get_left_border(Awindow *wi)
  1010. { return atoi(wi->work[LEFT_BORDER].ob_spec.tedinfo->te_ptext) ; }
  1011.  
  1012. int get_right_border(Awindow *wi)
  1013. { return atoi(wi->work[RIGHT_BORDER].ob_spec.tedinfo->te_ptext) ; }
  1014.  
  1015. int get_upper_border(Awindow *wi)
  1016. { return atoi(wi->work[UPPER_BORDER].ob_spec.tedinfo->te_ptext) ; }
  1017.  
  1018. int get_lower_border(Awindow *wi)
  1019. { return atoi(wi->work[LOWER_BORDER].ob_spec.tedinfo->te_ptext) ; }
  1020.  
  1021. int get_system_distance(Awindow *wi)
  1022. { return atoi(wi->work[SYSTEM_DISTANCE].ob_spec.tedinfo->te_ptext) ; }
  1023.  
  1024. int get_track_distance(Awindow *wi)
  1025. { return atoi(wi->work[TRACK_DISTANCE].ob_spec.tedinfo->te_ptext) ; }
  1026.  
  1027. int get_note_distance(Awindow *wi)
  1028. { return atoi(wi->work[NOTE_DISTANCE].ob_spec.tedinfo->te_ptext) ; }
  1029.  
  1030. int get_hor_lines(Awindow *wi)
  1031. { return atoi(wi->work[HOR_LINES].ob_spec.tedinfo->te_ptext) ; }
  1032.  
  1033. /**********************/
  1034. void get_style_params /*
  1035. ***********************/
  1036. (
  1037.     Awindow *wi,         /* input: parameters window */
  1038.     int style[12],         /* output: 12 note styles */
  1039.     int color[12],         /* output: 12 note colors */
  1040.     int *type,            /* output: note type */
  1041.     int *height,         /* output: note height */
  1042.     int *dynamic,       /* output: note dynamic */
  1043.     int back_style[12], /* output: 12 background styles */
  1044.     int back_color[12]  /* output: 12 background colors */
  1045. ) 
  1046. {
  1047. PARAMS *p = wi->user ;
  1048. int i ;
  1049.  
  1050.     /*** determine note type ***/
  1051.     *type = 0 ;
  1052.     if (wi->work[RADIO_HEAD_1].ob_state & SELECTED) *type |= HEAD_LINE ;
  1053.     if (wi->work[RADIO_HEAD_2].ob_state & SELECTED) *type |= HEAD_TRI ;
  1054.     if (wi->work[RADIO_BODY_1].ob_state & SELECTED) *type |= BODY_RECT ;
  1055.     if (wi->work[RADIO_BODY_2].ob_state & SELECTED) *type |= BODY_ELLIP ;
  1056.     if (wi->work[FRONT].ob_state & SELECTED)        *type |= BODY_FRONT ;
  1057.     if (wi->work[RADIO_TAIL_1].ob_state & SELECTED) *type |= TAIL_LINE ;
  1058.     if (wi->work[RADIO_TAIL_2].ob_state & SELECTED) *type |= TAIL_TRI ;
  1059.  
  1060.     /*** rest ***/
  1061.     for (i = 0 ; i < 12 ; i++)
  1062.     {
  1063.         color[i] = p->color[i] ;
  1064.         style[i] = p->style[i] ;
  1065.         back_color[i] = p->back_color[i] ;
  1066.         back_style[i] = p->back_style[i] ;
  1067.     }
  1068.     *height = atoi(wi->work[AVERAGE_HEIGHT].ob_spec.tedinfo->te_ptext) ;
  1069.     *dynamic = atoi(wi->work[DYNAMIC].ob_spec.tedinfo->te_ptext) ; 
  1070. }
  1071.  
  1072.  
  1073. int /* return: VDI text effects for headline */
  1074. /*****************/
  1075. get_text_effects /*
  1076. ******************/
  1077. (
  1078.     Awindow *wi /* input: parameters window */
  1079. ) 
  1080. { return ((PARAMS *)(wi->user))->effect ; }
  1081.  
  1082. int /* return: GDOS font ID */
  1083. /************/
  1084. get_font_id /*
  1085. *************/
  1086. (
  1087.     Awindow *wi    /* input: parameters window */
  1088. )
  1089. { return ((PARAMS *)(wi->user))->font_id ; }
  1090.  
  1091. int    /* return: notation mode */
  1092. /*********/
  1093. get_mode /*
  1094. **********/
  1095. (
  1096.     Awindow *wi /* input: parameters window */
  1097. )
  1098. { 
  1099.     if (wi->menu[BEYREUTHER].ob_state & CHECKED) return Beyreuther ;
  1100.     if (wi->menu[MIX].ob_state & CHECKED) return Mix ;
  1101.     return Rieder ;
  1102. }
  1103.